home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESEVNT1.S < prev    next >
Text File  |  1993-03-26  |  1KB  |  56 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.  
  9. ;*************************************************************************
  10. ;*
  11. ;* Event manager routines 1 of n.
  12. ;*
  13. ;*************************************************************************
  14.  
  15. ;-------------------------------------------------------------------------
  16. ; evnt_keybd (The easy one).
  17. ;-------------------------------------------------------------------------
  18.  
  19.           globl     _evnt_keybd
  20. _evnt_keybd:
  21.           move.l    #$14000100,d0       ; AControl  20,0,1,0
  22.           jmp        aes_do
  23.  
  24. ;-------------------------------------------------------------------------
  25. ; evnt_button
  26. ;-------------------------------------------------------------------------
  27.  
  28.           globl     _evnt_button
  29. _evnt_button:
  30. ;          .cargs    #8,bclicks,mask,state,px.l,py.l,pbutton.l,pstate.l
  31.  
  32. bclicks         =    8
  33. mask            =    10
  34. state            =    12
  35. px                =    14
  36. py                =    18
  37. pbutton         =    22
  38. pstate            =    26
  39.  
  40.  
  41.           link        a6,#-10             ; allocate intout[5].
  42.  
  43.           move.l    #$15030500,d0        ; AControl    21,3,5,0
  44.  
  45.           moveq.l    #-10,d1             ; =  intout
  46.           lea        bclicks(a6),a1        ; -> intin
  47.  
  48.           jsr        aes_call
  49.  
  50.           moveq.l    #-10,d1
  51.           lea        px(a6),a1
  52.           jmp        (a0)
  53.  
  54. ;          end of code
  55.  
  56.